home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / MacStepbyStep.dxr / Internal_64_pizza2 increase quantity.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  295 b   |  14 lines
  1. on mouseDown
  2.   global gQuantity2, gList2Prod, gList2Quant
  3.   if gList2Prod = string("Tate & Lyle Granulated Sugar") then
  4.     nothing()
  5.   else
  6.     if gList2Quant = 0 then
  7.       nothing()
  8.     else
  9.       gQuantity2 = gQuantity2 + 1
  10.       member(70).text = string(gQuantity2)
  11.     end if
  12.   end if
  13. end
  14.